COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "APOSTR"
C00012 ENDMK
C⊗;
BEGIN "APOSTR"
INTEGER I,J,K,L,M,N,O,CNT,BRK,EOF,FLG,BRK1,EOF1,FLG1;
STRING WORD; INTEGER WLEN,FL,FLA,LLA,FLEN,LLEN;
OUTSTR("START WITH WHICH LETTER:"); FLA←(INCHWL LAND '137);
OUTSTR("FINISH WITH WHICH LETTER:"); LLA←(INCHWL LAND '137);
OUTSTR("START WITH WHICH LENGTH:"); FLEN←CVD(INCHWL);
OUTSTR("FINISH WITH WHICH LENGTH:"); LLEN←CVD(INCHWL);


FOR FL←FLA STEP 1 UNTIL LLA DO
FOR WLEN←FLEN STEP 1 UNTIL LLEN DO
   BEGIN

   BEGIN
   OPEN(2,"DSK",0,0,2,30,BRK1,EOF1);
   ENTER(2,"DIC."&FL&CVS(WLEN),FLG1);
   OUTSTR("DIC."&FL&CVS(WLEN)&" ");
   END;

   OPEN(1,"DSK",0,2,0,30,BRK,EOF);
   LOOKUP(1,"DIC."&FL&CVS(WLEN),FLG);
   SETBREAK(1,'12," "&'15&'13&'14&"'"&"`","INS");

   WHILE ¬EOF DO
      BEGIN
      WORD←INPUT(1,1);
      IF LENGTH(WORD)=WLEN∧WORD=FL THEN OUT(2,WORD&'15&'12) ELSE OUTSTR(WORD&" ");
      END;

   CLOSE(2);
   CLOSE(1);
   OUTSTR(" DONE"&'15&'12);
   END;

END;